| Filename | (eval 1133)[/usr/share/perl/5.10/CGI.pm:869] |
| Statements | Executed 14 statements in 42µs |
| Eval Invoked At | /usr/share/perl/5.10/CGI.pm line 869 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 2 | 2 | 2 | 56µs | 242µs | CGI::protocol |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # spent 242µs (56+186) within CGI::protocol which was called 2 times, avg 121µs/call:
# once (41µs+173µs) by CGI::url at line 832 of CGI.pm
# once (15µs+13µs) by CGI::url at line 23 of (eval 1127)[CGI.pm:869] | ||||
| 2 | 2 | 5µs | local($^W)=0; | ||
| 3 | 2 | 1µs | my $self = shift; | ||
| 4 | 2 | 6µs | 2 | 27µs | return 'https' if uc($self->https()) eq 'ON'; # spent 27µs making 2 calls to CGI::https, avg 14µs/call |
| 5 | 2 | 10µs | 2 | 78µs | return 'https' if $self->server_port == 443; # spent 76µs making 1 call to CGI::AUTOLOAD
# spent 2µs making 1 call to CGI::server_port |
| 6 | 2 | 8µs | 2 | 76µs | my $prot = $self->server_protocol; # spent 74µs making 1 call to CGI::AUTOLOAD
# spent 2µs making 1 call to CGI::server_protocol |
| 7 | 2 | 4µs | my($protocol,$version) = split('/',$prot); | ||
| 8 | 2 | 9µs | return "\L$protocol\E"; | ||
| 9 | } | ||||
| 10 | |||||
| 11 | ; |